0 POKE53280,0:POKE53281,6:POKE646,1
1 PRINT"[147]COMMODARES PROBLEM #30-1"
2 PRINT"  FUNCTIONAL ENTRY":PRINT
3 REM SOLUTION BY
4 REM     S. SIMONETTI
5 REM
8 K1=842 : CT=208 :REM  KBD BUFFER
9 IF LEN(DS$)=0 THEN K1=631 : CT=198
10 PRINT"DEFINE THE FUNCTION FNA(X) = "
20 INPUT A$
30 PRINT"[147]50 DEF FNA(X)="A$ : PRINT"GOTO50"
40 POKE K1,13:POKE K1+1,13:POKE CT,2:END
50 DEF FNA(X)=GG=UOY/67*9999
100 FOR X=1 TO 10 : PRINT FNA(X) : NEXT